Dashboard

No datasets available. Are you logged in?

Recent Queries

VariableValue
Output incidents_85_99 fatal_accidents_85_99
incidents_85_99 1.0000000 0.8569911
fatal_accidents_85_99 0.8569911 1.0000000
V13
V24
X225
Select entire datasetNo
VariableValue
Output incidents_85_99 fatal_accidents_85_99
incidents_85_99 1.0000000 0.8569911
fatal_accidents_85_99 0.8569911 1.0000000
Roptions(echo = FALSE);
# If copying and pasting, replace the following filepath. Visit the the dataset homepage to download the CSV file.
X <- read.table("https://quadstat.com/system/files/datasets/admin/dataset-41414.csv/private/stat/datasets/admin/dataset-41414.csv", sep=",", header = TRUE);
dfr <- read.table("https://quadstat.com/system/files/datasets/admin/dataset-41414.csv/private/stat/datasets/admin/dataset-41414.csv", sep=",", header = TRUE);
colNam <- colnames(X);
X <- cbind(X[,3], X[,4]);
colnames(X) <- c(colNam[3], colNam[4]);
dfr <- as.data.frame(c(dfr[3], dfr[4]))
cor(X)
V13
V24
X225
Select entire datasetNo
VariableValue
Output incidents_85_99 fatal_accidents_85_99
incidents_85_99 1.0000000 0.8569911
fatal_accidents_85_99 0.8569911 1.0000000
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://datasets/admin/dataset-41414.csv/private/stat/datasets/admin/dataset-41414.csv", sep=",", header = TRUE);
dfr <- read.table("private://datasets/admin/dataset-41414.csv/private/stat/datasets/admin/dataset-41414.csv", sep=",", header = TRUE);
colNam <- colnames(X);
X <- cbind(X[,3], X[,4]);
colnames(X) <- c(colNam[3], colNam[4]);
dfr <- as.data.frame(c(dfr[3], dfr[4]))
cor(X)
V13
V24
X225
Select entire datasetNo
VariableValue
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-79160.csv", sep=",", header = TRUE);
dfr <- read.table("/private/stat/datasets/admin/dataset-79160.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-89693-%01d.png", bg = "transparent");
barplot(table(dfr));dev.off();
V11
VariableValue
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-79160.csv", sep=",", header = TRUE);
dfr <- read.table("/private/stat/datasets/admin/dataset-79160.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-37284-%01d.png", bg = "transparent");
barplot(table(dfr));dev.off();
V11