Dashboard

No datasets available. Are you logged in?

Recent Queries

VariableValue
Output x
Min. : 412
1st Qu.: 1580
Median : 6431
Mean :10528
3rd Qu.:17532
Max. :30514


[1] IQR: 15951.5


[1] Mean: 10527.8333333333
[1] Stanard deviation: 10033.3271895595
[1] Variance: 100667654.492754


breaks Freq cumFreq relative
1 (382,5.43e+03] 9 9 0.37500000
2 (5.43e+03,1.04e+04] 5 14 0.20833333
3 (1.04e+04,1.55e+04] 3 17 0.12500000
4 (1.55e+04,2.05e+04] 2 19 0.08333333
5 (2.05e+04,2.55e+04] 3 22 0.12500000
6 (2.55e+04,3.05e+04] 2 24 0.08333333



The decimal point is 4 digit(s) to the right of the |

0 | 00111122366678
1 | 1357
2 | 02559
3 | 1

Roptions(echo = FALSE);
# If copying and pasting, replace the following filepath. Visit the the dataset homepage to download the CSV file.
X <- read.table("/private/stat/datasets/admin/dataset-43491.csv", sep=",", header = TRUE);
dfr <- read.table("/private/stat/datasets/admin/dataset-43491.csv", sep=",", header = TRUE);
colNam <- colnames(X);
X <- cbind(X[,1]);
colnames(X) <- c(colNam[1]);
dfr <- as.data.frame(c(dfr[1]))
print(summary(X));
writeLines("\n");
print(noquote(paste("IQR: ", IQR(X))));
writeLines("\n");
print(noquote(paste("Mean: ", mean(X))));
print(noquote(paste("Stanard deviation: ", sd(X))));
print(noquote(paste("Variance: ", var(X))));
writeLines("\n");
breaks <- factor(cut(X, breaks = nclass.Sturges(X)))
xout <- as.data.frame(table(breaks))
xout <- transform(xout, cumFreq = cumsum(Freq), relative = prop.table(Freq))
print(xout)
writeLines("\n");
stem(X);
V11
X166
VariableValue
Image
OutputLoading required package: ggplot2
Saving 6.67 x 6.67 in image
Roptions(echo = FALSE);
# If copying and pasting, replace the following filepath. Visit the the dataset homepage to download the CSV file.
X <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
dfr <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
colNam <- colnames(X);
X <- cbind(X[,1]);
colnames(X) <- c(colNam[1]);
dfr <- as.data.frame(c(dfr[1]))
png(file = "/tmp/operation-74971-%01d.png", bg = "transparent");
hist(X, main = "Frequency Histogram")
library("lattice")
settings <- list(par.main.text = list(font = 2, just = "center"))
h <- histogram(X, par.settings=settings, main="Relative Frequency Histogram", col = c("transparent"));
print(h);
h <- invisible(hist(X, plot = FALSE))
h$counts <- cumsum(h$counts)
plot(h, main = "Cumulative Frequency Histogram")
boxplot(X, main = "Boxplot");
require("ggplot2");
ggplot(as.data.frame(X), aes(x = X[,1])) + geom_dotplot() + ggtitle("Dotplot") + theme(plot.title = element_text(hjust = 0.5)) + theme(axis.title.y=element_blank(), axis.text.y=element_blank(), axis.ticks.y=element_blank());
ggsave("ggplot.png");
dev.off();
V11
VariableValue
image
Outputy = -0.4319 x + 68.0978

p-value: 0.76131393

Roptions(echo = FALSE);
# If copying and pasting, replace the following filepath. Visit the the dataset homepage to download the CSV file.
X <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
dfr <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
colNam <- colnames(X);
X <- cbind(X[,1], X[,2]);
colnames(X) <- c(colNam[1], colNam[2]);
dfr <- as.data.frame(c(dfr[1], dfr[2]))
png(file = "/tmp/operation-64215-%01d.png", bg = "transparent");
l <- lm(X[,1] ~ X[,2], dfr);
writeLines(paste("y = ", round(l$coefficients[2], digits = 4),"x + ", round(l$coefficients[1], digits = 4)));
f <- summary(l)$fstatistic;
p <- pf(f[1],f[2],f[3],lower.tail=F);
writeLines(paste("\np-value: ", round(p, digits = 8),"\n\n"));
plot(dfr[,2], dfr[,1], xlab = colnames(dfr)[2], ylab = colnames(dfr)[1]);
abline(l);
dev.off();
V11
V22
X503
VariableValue
image
Outputy = -0.4319 x + 68.0978

p-value: 0.76131393

Roptions(echo = FALSE);
# If copying and pasting, replace the following filepath. Visit the the dataset homepage to download the CSV file.
X <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
dfr <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
colNam <- colnames(X);
X <- cbind(X[,1], X[,2]);
colnames(X) <- c(colNam[1], colNam[2]);
dfr <- as.data.frame(c(dfr[1], dfr[2]))
png(file = "/tmp/operation-38514-%01d.png", bg = "transparent");
l <- lm(X[,1] ~ X[,2], dfr);
writeLines(paste("y = ", round(l$coefficients[2], digits = 4),"x + ", round(l$coefficients[1], digits = 4)));
f <- summary(l)$fstatistic;
p <- pf(f[1],f[2],f[3],lower.tail=F);
writeLines(paste("\np-value: ", round(p, digits = 8),"\n\n"));
plot(dfr[,2], dfr[,1], xlab = colnames(dfr)[1], ylab = colnames(dfr)[2]);
abline(l);
dev.off();
V11
V22
X503
VariableValue
image
Outputy = -0.0066 x + 3.4102

p-value: 0.76131393

Roptions(echo = FALSE);
# If copying and pasting, replace the following filepath. Visit the the dataset homepage to download the CSV file.
X <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
dfr <- read.table("/private/stat/datasets/admin/dataset-12871.csv", sep=",", header = TRUE);
colNam <- colnames(X);
X <- cbind(X[,1], X[,2]);
colnames(X) <- c(colNam[1], colNam[2]);
dfr <- as.data.frame(c(dfr[1], dfr[2]))
png(file = "/tmp/operation-44820-%01d.png", bg = "transparent");
l <- lm(X[,2] ~ X[,1], dfr);
writeLines(paste("y = ", round(l$coefficients[2], digits = 4),"x + ", round(l$coefficients[1], digits = 4)));
f <- summary(l)$fstatistic;
p <- pf(f[1],f[2],f[3],lower.tail=F);
writeLines(paste("\np-value: ", round(p, digits = 8),"\n\n"));
plot(dfr[,2], dfr[,1], xlab = colnames(dfr)[1], ylab = colnames(dfr)[2]);
abline(l);
dev.off();
V11
V22
X503