# Create and display my_rand_data

my_rand_data<-runif(100, -3, 3)
my_rand_data

# Create and display my_norm_data

my_norm_data<-rnorm(100)
my_norm_data

# Calculate means

mean(my_rand_data)
mean(my_norm_data)

# Calculate standard deviations

sd(my_rand_data)
sd(my_norm_data)

# Create plots
hist(my_rand_data, breaks=10)
hist(my_norm_data, breaks=10)