clara()函数中的k-medoids使用距离来形成簇,所以我得到这样的模式:
a <- matrix(c(0,1,3,2,0,.32,1,.5,0,.35,1.2,.4,.5,.3,.2,.1,.5,.2,0,-.1), byrow=T, nrow=5)
cl <- clara(a,2)
matplot(t(a),type="b", pch=20, col=cl$clustering)
Run Code Online (Sandbox Code Playgroud)

但是我想找到一种聚类方法,根据趋势为每条线分配一个簇,因此第1,2和3行属于一个簇,第4和第5行属于另一个簇.
我使用Knitr的Rmd版本,因为它比Rhtml更简洁.我现在正在做
<script src="http://d3js.org/d3.v2.min.js"></script>
Run Code Online (Sandbox Code Playgroud)
在Rmd文档的主体中,但这应该是由生成的下游HTML文档的头部markdownToHTML.可能吗?
我有一个数据框,我想转换为嵌套列表与自定义嵌套级别.我就是这样做的,但我确信有更好的方法:
data <- data.frame(city=c("A", "A", "B", "B"), street=c("a", "b", "a", "b"), tenant=c("Smith","Jones","Smith","Jones"), income=c(100,200,300,400))
nested_data <- lapply(levels(data$city), function(city){
data_city <- subset(data[data$city == city, ], select=-city)
list(city = city, street_values=lapply(levels(data_city$street), function(street){
data_city_street <- subset(data_city[data_city$street == street, ], select=-street)
tenant_values <- apply(data_city_street, 1, function(income_tenant){
income_tenant <- as.list(income_tenant)
list(tenant=income_tenant$tenant, income=income_tenant$income)
})
names(tenant_values) <- NULL
list(street=street, tenant_values=tenant_values)
}))
})
Run Code Online (Sandbox Code Playgroud)
JSON中的输出如下所示:
library(rjson)
write(toJSON(nested_data), "")
[{"city":"A","street_values":[{"street":"a","tenant_values":[{"tenant":"Smith","income":"100"}]},{"street":"b","tenant_values":[{"tenant":"Jones","income":"200"}]}]},{"city":"B","street_values":[{"street":"a","tenant_values":[{"tenant":"Smith","income":"300"}]},{"street":"b","tenant_values":[{"tenant":"Jones","income":"400"}]}]}]
# or prettified:
[
{
"city": "A",
"street_values": [
{
"street": "a",
"tenant_values": [
{
"tenant": "Smith",
"income": "100"
}
] …Run Code Online (Sandbox Code Playgroud) 我想将当前的块标签放入块中.这可能吗?
```{r my_chunk}
gettextf("This chunk is called %s", some_function_to_get_chunk_label())
```
Run Code Online (Sandbox Code Playgroud) 我进行了自定义语言扩展,并希望启用“转到符号”功能。我试图按照这里的指导方针进行操作,但仍然有些失落。
我认为我所要做的只是实现一个DocumentSymbolProvider,但我不确定该如何做。
更新
该示例语言服务器文档指向一个回购协议被否决。它被替换为这一个,这是更为复杂的。我认为我能找到的最简单的示例是lsp-sample,但它没有使用DocumentSymbolProvider。
我发现其他确实使用符号提供程序的存储库,但是它们有点让人不知所措。我无法弄清楚需要去哪里(例如,我需要客户端和服务器吗?某些软件包似乎只使用了extension.ts没有客户端和服务器文件夹的)。
我真正想用我的语言做的就是检测以开头的行@并将其显示在“转到符号”窗格中。我希望看到一个简单的教程。
在 express.js 中,我可以编写一个控制器:
我不确定如何在 Nuxt.js 中解决这个问题,因为我不能fs从组件中要求模块。是否有任何地方可以使用服务器中的文件列表填充变量(例如,在static文件夹中),以便组件可以访问它?
假设我有一组有效的键名称
const validKeys = ['a', 'b', 'c']
Run Code Online (Sandbox Code Playgroud)
如何创建仅接受这些键的对象类型?这不起作用:
interface MyObject {
[key in validKeys]: number // for example
}
Run Code Online (Sandbox Code Playgroud) match 返回第一个和第二个参数之间的第一个匹配位置:
match(c("a","c"), c("a", "a", "b", "c", "c", "c")) # 1 4
Run Code Online (Sandbox Code Playgroud)
指定除第一个之外的匹配的最佳方法是什么?例如,我们想要第二场比赛"a"和第三场比赛"c"(所以我们得到:) 2 6.
更新:效率低下的解决方案会进行n次查找:
value_index_query <- data.frame(value = c("a", "c"), index = c(2, 3))
id <- c("a", "a", "b", "c", "c", "c")
apply(value_index_query, 1, function(value_index) {
value <- value_index[1]
index <- as.integer(value_index[2])
which(id == value)[index]
})
Run Code Online (Sandbox Code Playgroud) Sublime Text 对我来说最有用的功能之一是它保留了我打开的所有文件的历史记录。如何在 VS Code 中获得此功能?
我打开时以前打开的文件/编辑器的列表cmd+p非常小,并且不会跨会话持续存在。
编辑:问题不在于我在关闭会话时丢失了以前打开的文件,而是没有方便的方法来访问我一周前打开的文件。
当我运行yarn test:unit该进程时,它会在几秒钟后显示Type checking in progress...,并出现一长串错误。
我尝试按照建议删除eslint,但没有成功。
这是我的 tsconfig.json (我没有 tslint.json)
{
"compilerOptions": {
"target": "esnext",
"module": "esnext",
"strict": true, //noImplicitAny, noImplicitThis, alwaysStrict, strictNullChecks, strictFunctionTypes, strictPropertyInitialization
"allowJs": true,
"forceConsistentCasingInFileNames": true,
"noImplicitReturns": true,
"noUnusedLocals": true,
"noUnusedParameters": true,
"jsx": "preserve",
"importHelpers": true,
"moduleResolution": "node",
"esModuleInterop": true,
"allowSyntheticDefaultImports": true,
"sourceMap": true,
"baseUrl": ".",
"types": ["webpack-env", "mocha", "chai"],
"paths": {
"@/*": ["src/*"]
},
"lib": ["esnext", "dom", "dom.iterable", "scripthost"]
},
"include": [
"src/**/*.ts",
"src/**/*.tsx",
"src/**/*.vue",
"tests/**/*.ts",
"tests/**/*.tsx"
],
"exclude": ["node_modules"] …Run Code Online (Sandbox Code Playgroud)