Data Frame: import numpy as np import pandas as pd np.random.seed(1) import datetime today = datetime.date.today() someday = datetime.date(2016, 1, 1) diff =  today - someday rows,cols = diff.days,6 data = np.random.rand(rows,cols)  tidx = pd.date_range('2016-01-01', periods=rows, freq='D') data_frame = pd.DataFrame(data, columns=['a','b','c','d','e','f'], index=tidx) print(data_frame)   Question - Calculate the cumulative sum of the Data frame (using the .cumsum() function) andstore it in a new data frame called: df_accumulate and Plot the six sets of row values of df_accumulate in a graph

import numpy as npimport matplotlib.pyplot as pltfrom sklearn.cluster import KMeansfrom sklearn.cluster import DBSCAN from sklearn.datasets import make_blobs n_samples = [750,750,750] cluster_std = 1 random_state = 200 X, Y_true = make_blobs(n_samples=n_samples, random_state=random_state, cluster_std=cluster_std) plt.scatter(X[:, 0], X[:, 1], marker='.', c=Y_true) #DBSCAN model, setting up required parameters eps = 0.4min_Samples = 10db = DBSCAN(eps=eps, min_samples=min_Samples).fit(X)labels = db.labels_labels # To count number of clusters in labels, ignoring noise if present.n_clusters_ = len(set(labels)) - (1 if -1 in labels else 0)n_noise_ = list(labels).count(-1) print('Estimated number of clusters: %d' % n_clusters_)print('Estimated number of noise points: %d' % n_noise_) # Plot result# Use black to label noise points.unique_labels = set(labels)colors = plt.cm.Spectral(np.linspace(0, 1, len(unique_labels))) core_samples_mask = np.zeros_like(db.labels_,…

nycflights13::flights Q4<- flights %>%filter(carrier == "JFK") %>%summarise(average_dist = mean(distance)%>%summarise(max_dist = max(average_dist))%>%group_by(Q4, month, day)%>%head(Q4[order(dat$month),(dat$day),(dat$max_dist)],n=5) *not pictured, I did upload, tidy verse, dplyr, and the nycflights13 libraries. Error: Incomplete expression: Q4<- flights %>% filter(carrier == "JFK") %>% summarise(average_dist = mean(distance)%>% summarise(max_dist = max(average_dist))%>% group_by(Q4, month, day)%>% head(Q4[order(dat$month),(dat$day),(dat$max_dist)],n=5) RStudio Question: I can't figure out what is wrong with my code. Could someone take a look at it? See below for what I am trying to do, my code and my error output. I am trying to find what 5 days of the year had the highest mean distance from JFK airport, using the nycflights13 library. I want to format it in month, day, andvmean distance.