R パッケージ アンロード

 

remove.packages('quantmod')　# 要注意

unloadNamespace("quantmod")

依存関係 パッケージ package R

 

> tools::package_dependencies(packages = "quantmod",  which = "Depends", reverse =F)
$quantmod
[1] "xts"     "zoo"     "TTR"     "methods"

> tools::package_dependencies(packages = "xts",  which = "Depends", reverse =F)
$xts
[1] "zoo"

> tools::package_dependencies(packages = "zoo",  which = "Depends", reverse =F)
$zoo
[1] "stats"

> tools::package_dependencies(packages = "stats",  which = "Depends", reverse =F)

侵略行為の法的性質とその法的帰結についての備忘録 ロシア ウクライナ

The original is from here.

侵略行為の法的性質とその法的帰結についての備忘録。国際法上の義務の一種に「一般国際法上の強行規範に基づいて発生する義務の重大な違反」（国家責任条文40条1項）がある。義務の性質と違反の程度に特徴あり。

強行規範として禁止される行為として、侵略行為、奴隷取引、人種差別、アパルトヘイト、ジェノサイド。これらはウィーン条約法条約53条との関連で。拷問禁止、国際人道法の基本原則、自決権も強行規範とされることも。網羅的ではないことに注意。

これら規範の重要な法的帰結は、「いかなる国も、（この）重大な違反によりもたらされた状態を合法的なものとして承認してはなら」ないこと。その状態を維持するために支援・援助もしてはならない（国家責任条文40条2項）。国際社会全体による集団的な不承認が求められているということ。

イラクによるクウェート侵攻とその後の併合に対して安保理決議662（1990年）は法的拘束力をもって「法上無効」に。南ローデシアの人種差別、南アのバンツースタン計画も、総会や安保理で集団的不承認の対象に。国際法規則はこうした経緯を経て徐々に発展してきたことに留意すべき。

ロシアのウクライナ侵略によって生じるいかなる効果も国際法上無効のはず。ウクライナ領内のロシアの占領地域がウクライナ領でなくなることは、国際法の観点からはあってはならないこと。しかもロシアの侵略という違法行為は、ウクライナに対してだけでなく、国際社会全体に対して向けられたもの。

しかしロシアとウクライナが両国間の「平和」のためにロシアの占領地がロシア領になったり、２つの「人民共和国」が独立することが認められた場合、国際社会はいかに対応するのか。侵略国が利益を得ても座視することに。ここには国家間の合意が強行規範の義務さえも実質的に効力を失わせる契機がある。 

最小二乗法 予報 lm

 

w <- last(mdf[,13],138) %>%  c(.,c(5374,NA)) %>% matrix(.,nrow=7) %>% t()
i <- 20
r <- lm(w[-i,7] ~ w[-i,1] + w[-i,2] + w[-i,3] + w[-i,4] +w[-i,5] + w[-i,6] )
summary(r)
r$coefficients[1] + r$coefficients[2]*w[20,1] + r$coefficients[3]*w[20,2] + r$coefficients[4]*w[20,3] + r$coefficients[5]*w[20,4] + r$coefficients[6]*w[20,5] + r$coefficients[7]*w[20,6]

ソート、 order 、 sprintf

 

w <- c(); for(i in seq(1,47,1)){w <- append(w,sum(last(dmdf[,i],31)) / sum(last(mdf[,i],31)))}
data.frame(d=sprintf("%.4f",100*w[order(w,decreasing = T)]),r=pref_jp[order(w,decreasing = T)])
         sprintf("%.4f", 100 * w[order(w, decreasing = T)])

高知県                                               0.1810
広島県                                               0.1809
山梨県                                               0.1473
三重県                                               0.1328
愛媛県                                               0.1303
山口県                                               0.1295
群馬県                                               0.1190
香川県                                               0.1150
栃木県                                               0.1147
熊本県                                               0.1063
北海道                                               0.1061
石川県                                               0.1034

i <- length(seq(as.Date("2022-01-01"),last(mdf$t),by="day"))

w <- ((last(dmdf[,-48],i) %>% apply(.,2,sum)) / (last(mdf[,-48],i) %>% apply(.,2,sum))) %>%  as.vector(.) %>% data.frame(r=pref_jp,d=.);w <- w[order(w$d,decreasing = T),] ; data.frame(r=w$r,d=sprintf("%.4f",100*w$d))

先導株

先導株候補

$CF

$NTR

$MOS

$DBA

NYSE TICK INDEX

 

get data from here.

# read csv 
TICK <- read.csv("~/Downloads/NYSETickIndex.csv") 

# inverse entry order
TICK[length(index(TICK)):1,]

# 1) remove "," from data field, 2)convert data data to POSIX compliant

# 3) extract daily low only
TICK <-as.xts(as.numeric(sub(",","",TICK[,5])),as.Date(paste(substr(TICK[,1],1,4),substr(TICK[,1],6,7),substr(TICK[,1],9,10),sep = '-')))

2022 CLI release schedule

 

from here.

17 January 2022
9 February 2022
9 March 2022
11 April 2022
10 May 2022
13 June 2022
11 July 2022
9 August 2022
12 September 2022
11 October 2022
9 November 2022
8 December 2022

#cli 2022 schedule