Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
lab1
dat<-read.table(file="stdin", sep=",") dat y<-t(dat) y # строю дискретный вариационный ряд a<-table(y) a f<-as.data.frame(a) f # f[,3] значения частотости f[,3]<- 100*a/(sum(a)) f # кумулятивная сумма f[,4]<- cumsum(a) f # кумулятивная сумма f[,5]<- cumsum(100*a/(sum(a))) f colnames(f)<-c("value","frequency","frequency of occurrence","cumulative frequency", "cumulative frequency of occurrence") f # Полигон частот plot(a,type="l",main="frequency polygon",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="cumulative frequency", main= "absolute frequency cumulative percentage curve") y<-as.numeric(f[,5]) y plot(x,as.numeric(f[,5]),type="l",xlab="value",ylab="cumulative frequency of occurrence", main= "relative frequency cumulative percentage curve")
run
|
edit
|
history
|
help
0
Generate numbers based on mean and stdev
10=08-2020Newton
Correlation
31-08-2020-Exemplo Ajuste
Practice series1(37)
Gamma
Sampling Distribution for the Wald-Wolfowitz 2-Sample Runs Test
Test of Code Wall
Estimate pi with uniform random numbers
Pendulum Experiment