"0","num_house_weight <- house_weight %>%"
"0","   select(""total_salvage_quantity"", ""total_dropbox_quantity"", ""house_age"", ""house_size"")"
"0","names(num_house_weight) <- c(""salvage kg"", ""dropbox kg"", ""house age"", ""house size"")"
"0","house_weight_corr <- cor(num_house_weight, method = ""pearson"")"
"0","print(house_weight_corr)"
"1","          "
"1"," salvage kg"
"1"," dropbox kg"
"1"," house age"
"1"," house size"
"1","
salvage kg"
"1","       1.00"
"1","      -0.19"
"1","      0.07"
"1","       0.43"
"1","
dropbox kg"
"1","      -0.19"
"1","       1.00"
"1","     -0.06"
"1","      -0.06"
"1","
house age "
"1","       0.07"
"1","      -0.06"
"1","      1.00"
"1","       0.18"
"1","
house size"
"1","       0.43"
"1","      -0.06"
"1","      0.18"
"1","       1.00"
"1","
"
"0","cor.test(house_weight$total_salvage_quantity, house_weight$house_size, method = ""pearson"")"
"1","
"
"1","	Pearson's product-moment correlation"
"1","
"
"1","
"
"1","data:  "
"1","house_weight$total_salvage_quantity and house_weight$house_size"
"1","
"
"1","t = 3, df = 30, p-value = 0.009"
"1","
"
"1","alternative hypothesis: "
"1","true "
"1","correlation"
"1"," is "
"1","not equal to"
"1"," "
"1","0"
"1","
"
"1","95"
"1"," percent confidence interval:
"
"1"," "
"1","0.1 0.7"
"1","
"
"1","sample estimates:
"
"1","cor "
"1","
"
"1","0.4 "
"1","
"
"1","
"
"0","cor.test(house_weight$total_dropbox_quantity, house_weight$house_size, method = ""pearson"")"
"1","
"
"1","	Pearson's product-moment correlation"
"1","
"
"1","
"
"1","data:  "
"1","house_weight$total_dropbox_quantity and house_weight$house_size"
"1","
"
"1","t = -0.4, df = 30, p-value = 0.7"
"1","
"
"1","alternative hypothesis: "
"1","true "
"1","correlation"
"1"," is "
"1","not equal to"
"1"," "
"1","0"
"1","
"
"1","95"
"1"," percent confidence interval:
"
"1"," "
"1","-0.4  0.3"
"1","
"
"1","sample estimates:
"
"1","  cor "
"1","
"
"1","-0.06 "
"1","
"
"1","
"
"0","corrplot::corrplot(house_weight_corr, method = ""color"", type = ""lower"", addCoef.col = ""black"", tl.col = ""black"", tl.srt = 0, sig.level = 0.05, insig = ""blank"", diag = FALSE, mar = c(0,0,1,0))"
