Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1.second
#R version 3.3.2 file_ <- file("stdin") dat<-read.table(file_, sep = ",") dat y<-t(dat) y a<-table(y) a f<-as.data.frame(a) f[,3]<- 100*a/(sum(a)) f f[,4]<- cumsum(a) f colnames(f)<-c("значение","частота","частость","накопленная частота") f plot(a,type = "l", main = "Frequency range", xlab = "value", ylab = "frequency") d<-as.numeric(y) d v<-sort(d) v x<-unique(v) x y<-as.numeric(f[,4]) y plot(x,as.numeric(f[,4]),type="l",xlab="value",ylab="accumulated frequency", main= "Absolute frequency cumulates")
run
|
edit
|
history
|
help
0
Vector
factor
As1-1
Leap Year Finder
iron-anova-dbc
14-09-2020GRam
21-09-2020IntpoliLagaproxf
US births
Integracao-Interpolacaa
Sensitivity to Escitalopram MACE count